Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/exitwi4r/frmmain.frm

Visual Basic Form | 1999-07-12 | 5.7 KB | 193 lines

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Begin VB.MDIForm MDIForm1
   BackColor       =   &H8000000C&
   Caption         =   "Sample programing language v 1 (by mostafa mohamed)"
   ClientHeight    =   4920
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7980
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog cdlg
      Left            =   240
      Top             =   1080
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   327681
      CancelError     =   -1  'True
   End
   Begin VB.PictureBox Picture3
      Align           =   2  'Align Bottom
      BackColor       =   &H00800000&
      BorderStyle     =   0  'None
      Height          =   225
      Left            =   0
      ScaleHeight     =   225
      ScaleWidth      =   7980
      TabIndex        =   7
      Top             =   2880
      Width           =   7980
      Begin VB.CommandButton Command6
         Caption         =   "x"
         Height          =   255
         Left            =   0
         TabIndex        =   9
         Top             =   0
         Width           =   255
      End
      Begin VB.Label Label1
         BackStyle       =   0  'Transparent
         Caption         =   "Debug Window"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   360
         TabIndex        =   8
         Top             =   0
         Width           =   1215
      End
   End
   Begin VB.PictureBox Picture2
      Align           =   2  'Align Bottom
      BackColor       =   &H00FFFFFF&
      Height          =   1815
      Left            =   0
      ScaleHeight     =   1755
      ScaleWidth      =   7920
      TabIndex        =   6
      Top             =   3105
      Width           =   7980
   End
   Begin VB.PictureBox Picture1
      Align           =   1  'Align Top
      BorderStyle     =   0  'None
      Height          =   375
      Left            =   0
      ScaleHeight     =   375
      ScaleWidth      =   7980
      TabIndex        =   0
      Top             =   0
      Width           =   7980
      Begin VB.CommandButton Command7
         Caption         =   "DEBUG WINDOW"
         Height          =   375
         Left            =   3960
         TabIndex        =   10
         Top             =   0
         Width           =   1695
      End
      Begin VB.CommandButton Command5
         Caption         =   "STOP"
         Enabled         =   0   'False
         Height          =   375
         Left            =   3120
         TabIndex        =   5
         Top             =   0
         Width           =   615
      End
      Begin VB.CommandButton Command4
         Caption         =   "RUN"
         Height          =   375
         Left            =   2520
         TabIndex        =   4
         Top             =   0
         Width           =   615
      End
      Begin VB.CommandButton Command3
         Caption         =   "SAVE"
         Height          =   375
         Left            =   1560
         TabIndex        =   3
         Top             =   0
         Width           =   735
      End
      Begin VB.CommandButton Command2
         Caption         =   "OPEN"
         Height          =   375
         Left            =   840
         TabIndex        =   2
         Top             =   0
         Width           =   735
      End
      Begin VB.CommandButton Command1
         Caption         =   "NEW"
         Height          =   375
         Left            =   120
         TabIndex        =   1
         Top             =   0
         Width           =   735
      End
   End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'This programe is by mostafa mohamed
'it is about a very sample progaming
'program that contain a very simple debuger
'and it not help you only to start make a
'debuger but you can use it for saving files
'in your format saving objects on the form
'and load the file and set the debuger to
'load objects.
'Note: you can use its code in any project
'Email
'[e-mail]
'[e-mail]
'website
'http://www.geocities.com/ResearchTriangle/Campus/4598/Vb.HTML
Private Sub Command1_Click()
On Error Resume Next
'New document (Erase all text on the text box)
Form1.RichTextBox1.Text = ""
End Sub
Private Sub Command2_Click()
On Error GoTo errr
cdlg.Filter = "Sample prog. files (*.spf)|*.spl|All files (*.*)|*.|"
cdlg.ShowOpen
Form1.RichTextBox1.LoadFile cdlg.filename
Exit Sub
errr:
Resume Next
End Sub
Private Sub Command3_Click()
On Error GoTo errr
cdlg.Filter = "Sample prog. files (*.spf)|*.spl|"
cdlg.ShowSave
Form1.RichTextBox1.SaveFile cdlg.filename, 1
Exit Sub
errr:
Resume Next
End Sub
Private Sub Command4_Click()
On Error Resume Next
Dim linedata As String
Dim cmnd As String
Dim cval As String
Form1.RichTextBox1.SaveFile App.Path & "\temp.tmp", 1
Form2.Show
Open App.Path & "\temp.tmp" For Input As #1
Input #1, linedata
cmnd = getcommand(linedata)
cval = getval(linedata)
docommand cmnd, cval
Loop Until EOF(1)
Close #1
Form1.Enabled = False
Command4.Enabled = False
Command5.Enabled = True
End Sub
Private Sub Command5_Click()
Unload Form2
End Sub
Private Sub Command6_Click()
Picture2.Visible = False
Picture3.Visible = False
End Sub
Private Sub Command7_Click()
Picture3.Visible = True
Picture2.Visible = True
End Sub